44
|
How do I enable the cross link support ( rectangular )

With SwimLane1
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",0,76
With .Add("Element <sha ;;0>C",-76,32)
.AutoSize = False
.Height = 32
End With
With .Add("Element <sha ;;0>D",76,32)
.AutoSize = False
.Height = 32
End With
End With
With .Links
With .Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
.StartPos = 1
.EndPos = 1
End With
With .Add(SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(1))
.StartPos = 1
.EndPos = 1
End With
.Add SwimLane1.Elements.Item(3),SwimLane1.Elements.Item(4)
With .Add(SwimLane1.Elements.Item(4),SwimLane1.Elements.Item(3))
.StartPos = 0
.EndPos = 2
End With
End With
.ShowLinks = 33 ' ShowExtendedLinksEnum.exShowCrossLinksRect Or ShowExtendedLinksEnum.exShowExtendedLinks
End With
|
43
|
How do I show a link frmo bottom to top, or reverse, not from left to right

With SwimLane1
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",0,64
End With
With .Links
With .Add(SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2))
.StartPos = 1
.EndPos = 1
End With
End With
End With
|
42
|
Is it possible to control the links, so that they are always centered

With SwimLane1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
End With
.ShowLinks = -1
.DefArrange(0) = 1
.Arrange
End With
|
41
|
What options to align the elements do I have if I use Arrange method

With SwimLane1
.BeginUpdate
.ShowGridLines = True
With .Elements
h1 = .Add("Top Alignment").ID
.Add "Element"
.Add "Element"
.Add "Element"
h2 = .Add("Center Alignment",,96).ID
.Add "Element",,96
.Add "Element",,96
.Add "Element",,96
h3 = .Add("Bottom Alignment",,178).ID
.Add "Element",,192
.Add "Element",,192
.Add "Element",,192
End With
With .Links
.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(3)
.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(4)
.Add SwimLane1.Elements.Item(2),SwimLane1.Elements.Item(3)
.Add SwimLane1.Elements.Item(5),SwimLane1.Elements.Item(6)
.Add SwimLane1.Elements.Item(5),SwimLane1.Elements.Item(7)
.Add SwimLane1.Elements.Item(6),SwimLane1.Elements.Item(8)
.Add SwimLane1.Elements.Item(6),SwimLane1.Elements.Item(7)
.Add SwimLane1.Elements.Item(9),SwimLane1.Elements.Item(10)
.Add SwimLane1.Elements.Item(9),SwimLane1.Elements.Item(11)
.Add SwimLane1.Elements.Item(10),SwimLane1.Elements.Item(12)
.Add SwimLane1.Elements.Item(10),SwimLane1.Elements.Item(11)
End With
.DefArrange(3) = 0
.Arrange h1
.DefArrange(3) = 1
.Arrange h2
.DefArrange(3) = 2
.Arrange h3
.EndUpdate
End With
|
40
|
Is there an auto-arrange feature that will display the flow-chart centered and zoomed correctly after we are finished building it

With SwimLane1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
End With
.Arrange
End With
|
39
|
Is it possible to change the distance between elements, when calling the Arrange method

With SwimLane1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
End With
.DefArrange(1) = 0
.DefArrange(2) = 0
.Arrange
End With
|
38
|
How do I organize vertically the elements

With SwimLane1
With .Elements
.Add("Element A").ID = "A"
.Add("Element B").ID = "B"
.Add("Element C").ID = "C"
.Add("Element D").ID = "D"
End With
With .Links
.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("B")
.Add SwimLane1.Elements.Item("A"),SwimLane1.Elements.Item("C")
.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("D")
.Add SwimLane1.Elements.Item("B"),SwimLane1.Elements.Item("C")
End With
.ShowLinksType = 2
.DefArrange(0) = 1
.Arrange
End With
|
37
|
How can I add programatically a link

With SwimLane1
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
With .Links
.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
End With
End With
|
36
|
How do I get the link from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub SwimLane1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
With SwimLane1
Set l = .LinkFromPoint(-1,-1)
Debug.Print( l )
End With
End Sub
With SwimLane1
With .Elements
.Add "Element <sha ;;0>A"
.Add "Element <sha ;;0>B",96,24
End With
With .Links
.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(2)
End With
End With
|
35
|
Is there a way to create a link which has the same start and end element

With SwimLane1
With .Elements
.Add "Element"
End With
With .Links
.Add SwimLane1.Elements.Item(1),SwimLane1.Elements.Item(1)
End With
End With
|
34
|
How can I show the pool's caption not-rotated or mirrored

With SwimLane1
.BeginUpdate
.AllowDesignHeader = 4
With .Pools.Add(-150,-150,300,150)
.HeaderCaptionSupportRotate = False
.HeaderSize(0) = 48
.HeaderSize(2) = 48
.Lane(0).Children.Count = 3
End With
.EndUpdate
End With
|
33
|
How can I prevent creating sub-lanes or sub-phases

With SwimLane1
.BeginUpdate
.AllowDesignHeader = 4
With .Pools.Add(-150,-150,300,150)
.HeaderSize(0) = 32
.HeaderSize(2) = 32
.Lane(0).Children.Count = 3
End With
.EndUpdate
End With
|
32
|
How do I show a complete frame/border around the header

With SwimLane1
.BeginUpdate
With .Pools.Add(-150,-150,300,150)
.HeaderSize(1) = 32
.HeaderSize(3) = 32
With .Lane(1).Children
.Count = 3
.Item(1).Header.Pattern.Type = 768
End With
End With
.EndUpdate
End With
|
31
|
How do I show a complete frame/border around the lane

With SwimLane1
.BeginUpdate
With .Pools.Add(-150,-150,300,150)
.HeaderSize(1) = 32
.HeaderSize(3) = 32
With .Lane(1).Children
.Count = 3
.Item(1).Pattern.Type = 768
End With
End With
.EndUpdate
End With
|
30
|
How can I define sub-lanes

With SwimLane1
.BeginUpdate
With .Pools.Add(-150,-150,300,250)
.HeaderSize(1) = 32
.HeaderSize(3) = 32
With .Lane(1).Children
.Count = 3
.Item(1).Children.Count = 2
End With
End With
.EndUpdate
End With
|
29
|
How can I add default lanes when the user creates a new pool
' AddPool event - A new pool has been added to the surface.
Private Sub SwimLane1_AddPool(ByVal Pool As Object)
' Pool.HeaderSize(1) = 24
' Pool.HeaderVisible(0) = False
' Pool.HeaderVisible(1) = True
' Pool.HeaderVisible(2) = False
' Pool.HeaderVisible(3) = False
' Pool.Lane(1).Children.Count = 2
End Sub
With SwimLane1
.BeginUpdate
.Pools.Add -100,-100,250,250
.EndUpdate
End With
|
28
|
How do I prevent showing headers when the user creates new pools

' AddPool event - A new pool has been added to the surface.
Private Sub SwimLane1_AddPool(ByVal Pool As Object)
With SwimLane1
With Pool
End With
End With
End Sub
With SwimLane1
.BeginUpdate
.Pools.Add(-100,-100,250,250).Lane(0).Children.Count = 3
.EndUpdate
End With
|
27
|
How can I display icons on headers

With SwimLane1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Pools.Add(-100,-100,250,250)
.HeaderVisible(0) = False
.HeaderVisible(2) = False
.HeaderVisible(3) = False
.HeaderSize(1) = 24
With .Lane(1).Children
.Count = 3
.Item(0).Header.Caption = "<img>1</img> A"
.Item(1).Header.Caption = "<img>2</img> B"
.Item(2).Header.Caption = "<img>3</img> C"
End With
End With
.EndUpdate
End With
|
26
|
How do I change the Lane and Phase strings being displayed on the lanes

With SwimLane1
.BeginUpdate
.DefPoolHeaderCaptionFormat(True) = "<fgcolor 808080>Faza <off -4><b><font ;6>%i"
.DefPoolHeaderCaptionFormat(False) = "<fgcolor 808080>Culoar <off -4><b><font ;6>%i"
With .Pools.Add(-100,-100,250,250)
.Lane(0).Children.Count = 3
.Lane(1).Children.Count = 3
.Lane(1).Children.Item(1).Header.Caption = "<fgcolor FF0000><b>NEW"
End With
.EndUpdate
End With
|
25
|
How can I enlarge the node while AutoSize property is True (method 2)

With SwimLane1
.Background(90) = RGB(255,255,255)
With .Elements.Add("Element",0,0).Copy()
.Caption = "Enlarged Element"
.InflateSize = 16
End With
End With
|
24
|
How can I enlarge the node while AutoSize property is True (method 1)

With SwimLane1
.Background(90) = RGB(255,255,255)
With .Elements.Add("Element",0,0).Copy()
.Caption = "Enlarged Element"
.Padding(-1) = 16
End With
End With
|
23
|
How can I get the lane of the element

With SwimLane1
.BeginUpdate
.Pools.Add(-150,-150,500,250).Lane(0).Children.Count = 3
With .Elements.Add("Element")
.CenterOnLane False
lane = .LaneID(False)
Debug.Print( SwimLane1.LaneByID(lane).Header.Caption )
End With
.EndUpdate
End With
|
22
|
How can I define a different shape for elements

' AddElement event - A new element has been added to the surface.
Private Sub SwimLane1_AddElement(ByVal Element As Object)
With SwimLane1
With Element
End With
End With
End Sub
With SwimLane1
.BeginUpdate
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAAChABAQDg6AADACAxRDQNABQKAAzQFAYahuHKGAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQwDiAUIjIK8IhkGIcZAGIBJCjWGodQLOEgwH" & _
"IERQjEyUJAGGYqEjaO41SpAdI0PCxUScACnDQiegJRgmQ4cTJSchSAKENx1JaeYReewwAqNd5TRwNIiydZUIhqGC1YRte4ZWiCWoJVzSVDLfbgAT4X60IIlCi5Mi6MIg" & _
"DZJFDUNLUdRBMKNJ7qagaWoWOaQRbmAQQTRYLQ/TiEXZDQRAAyLJIWVRQWTAAKVbw1LiEcznGCcejzIIDaZpOh4DplWzTOgALjta4IRpvNwAbIAF4gBqsLyXXLcdQyOR" & _
"MiwbxZgSDhgnQbJFC6F5JhECA8CADwIgMeQnmoQJlh0eAfGcXYZjwccOHiWx/moAJ6jed4DC2dJnnmQRxBcKABBoWAcHULZLHyV4mmGOx0FmdpZAMAgQhEQBpBiRxBlQ" & _
"cgZFUdAMEYAxQDECBNgaUYglkCQKBGZANk0QgBgQXAQgcGI0FwJAHA6WI+DGDAjCiVg0g2Yw4mYNg7E0eJ1H+DpkAiYhBg6JApBYRMvDkJhGhKJIImEA4QledZ8H+FJl" & _
"EEQhWBAJa8loRoCgkdhYBAExZHQKIXmUYRCFQI5mgWfZ4hMJpJC4boTGcCY0m0QJVBAIh2EIZZ5H4VIVAqeZ1H8M5oAmSg7g8TR1n4fQrmUQZCgqF5eEmYhYBgKQJiCD" & _
"4PmaegKhWJZnAQDZkhqaYKFocYnGadZ8h+KJoiGQhfEIURAmKEAYAgeo1H8OZrAoeoyhGKYngaHInmuCpOjmKAkHMHo+iiSZxmKQoXkGCwWigRQlnqLh7jKSh7DYUYzm" & _
"0CgAk+DIrFCAo3i6LYKnKWYuk6Wp4keKIqDsLh7BYLhJmaZo5mcYAijAOZtFsXpajubZLG6co8CSShtnYeJrGeVpzjwbxLnafI/mcK5ZnmPgtGuap+j6cIMB8CocDAK4" & _
"3AaQAwjwJwQkSaZsDcBI7jETBHBqRhxkibwWkCMQsgcG5Ii2TB+nkN5yEyJwjkqcJMh8DpKDKTIrB2TBmnyGwFkwMw8mcMpOmQbJbBiTwziyUxBDsc5sD8QJRnQKprEW" & _
"Tg0g0DxNlKMpsF8RpSHUTQ7BuUp0n0VxZi4MxrDSJ40DYDYHGKWJ2E2FxmyADYnGqMRBgeYh0FOLh9kccpcncJsVw7RdjvA2M4eovRmCSFkMwQIoAQEBA"
.Add 2,"gBFLBCJwBAEHhEJAAChABAIDg6AADACAxRDQNABQKAAzQFAYaBmG6GAAGEaBYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQ1DAAUIjKLMIhmGAYJAGIBJCjWGodQLOEgwH" & _
"IERQjEyUpIyVAkYw5HqNaQjICoJoSOwAU47IaCIAFJSpCygKKgSjhRpoAAyU5IUgVPC4XSbD6zYDqapaTheEQyDSJNr3DCMUTlFYYLrmaQKMhqZJhWjbFSWXUpJ4pSrL" & _
"MIyfTwZRJGzIK7jabLIjaP6GUDhVaYbRUL46CiEb5AAJsVpCCZrYRJOYVdQeDYbQCNLDhHQIDqaA6kZRAdQ2bpMBznPSvbovDgLWhGYqhbLCNibRC+d4HNrCYIlCjpMw" & _
"3CYGIOHOMRsm0OxFjSZppneHQNFcSwRAOaprjqY4dgYe4VgGWwADucRuHYCpdByYROH8AAOC8D4NgEXwYBWEZyGAWoHg2MRCECBAkFAGhGDGUB1ByBhQkUIAPgCRAMEI" & _
"ExhIuNhCEKBAlnAcwQgAYQXAIIRWEUFwJAGQ42CiCoihiLgugsYwDjSZ4MkICJWCaDZjgiZg6EIQQInSV4PmKeIyEKEBkBQDhEgwZBzjSd4SlEQJgk+E5khkRhIhSZA5" & _
"FIUoVGWCQkl+FpkliTJnhXSYaFaGJOlEIhmC2ZoJgIZIaiWGYuG62IpDyT4TGSM5eGyCpmCnPIcCeQg+H6HZmnoAh6iAaBDjSL4hkUCgmgKHhlHmeIPh8BwKAqEohGkO" & _
"gOHCI4pAmMoMhUKByj6CQUCkWoGhSKJpGkJoQiOJR6G4cYTmcSQuiKKRqEqPovhmBIJiCN4YEACQGFsN5lliToyiwbAKkKQoSGcWQ2HKERrhiJJvjLUR8leL5sDsBpQi" & _
"UZZpDaO4eAACZWh+LYtDsSpejQbmJnIEAuEsLJvECRgLiSH46m2W4Gl+OxpFqWo0ECSR7lQaI9m8C4+nqO4uAIHp+B4MAJmcAAeC+YgenmPwwHwHInkKRYMDaWIQGmeh" & _
"3AmPpxDsCJHkWbhBAIdZDmMGZXBmRZMHwVwikUIwam0MAMC4awiEmOYyHsXwkkIMp5jMLBMDKaRiiqEBsmkNwpkwc5MyiHRrEKfxCiobIaFsQgvmsTBvD2SJuAwNBYkK" & _
"Sh6GsRYbDUDQ7EyVZmEwDwFiKdQ6BQf5XnYDRjD6IIujIfppBgKRcl6BZZnYXYLBWLYpn0KpglqLAtAIZoOneBsZw9RJjnQ+AYQAgCAg="
.Add 3,"gBFLBCJwBAEHhEJAAChABQsMACAADACAxRDQNABQKAAzQFAYawLBgABhGUZoJhUAIIRZGMIjFDcEwxC6NIpAWCYQgUNQCQiNAzxAKQchhD4ZAIkGY4ZhyA42SBAcbyD" & _
"CEShoGqPRhmCg5UjmM4oQLSFDULC0fSBBIYaSGEY5QoqIYfArGQYQTRUPyUdoOBIACwLChWLA1CTZdowSKoYTXBq3IgqerIapmSYaV7YNh3VY1IR/JSVJYlaYJDoyNI4" & _
"ThHc5xVLtfSfAiiJrxOKcTAAFJ0QKFUbRUz+OgBTpvaZxagaSpSG5WRpWEI5PAdN4zTa7YDsS67FiSG5oWpEFq2eAGdzlVLMMqhG5gAxqNKzbLfMCXfJIbyrBIcYLoXI" & _
"tCqFYskMTwxlgAY+haFZRlQZQ4HwHR3AoMx5jEch2lMfZGl8eY+jYXBvBsAAHFeRQDmuRR8nsSI2CoEgIEIRQBiQYwdAcUZIGUUIQhGGAGECRAhDYChGFERAMCgQheEc" & _
"GQgHkEAwkICx2BCFoAj+B5iAiBgigiYhIgid4JkIQBwm2ChijiKgsguYpokYLYMmKQIiDYDgjgEAg6g6Y5InYPoPmOIAiEKEJFgkFIvhGYwIlIMoSTmAhOGgJJJC4UoS" & _
"iUSIcncKZlp8WoOAOAxeF6FBlEkNhPGcZgJhYU4ZiMMweGoDAmkGfhuhWJoJDgIIUCYeZWGGHYkhkWhuB+ZYhEIcIUmcKZSHeIJmgoFgyCeaIBgKCoYCgGYSHiI5oEoQ" & _
"gsiKBgKCCH4SOAfoGiQaZKPmJ5jGCIJniiZgpk6DonGkKomgOHpnjqFoCiaawKioSYXg0eoGi6KZrBqIo6hgEIal6GosiwCpuDIBgsEqDJniYa4bVuFYkDqepKjCLQJi" & _
"iR4XCyawGk+JpGgsZIXjabRbEKV4disSYwDCH5OlsIpWjmaA5HKUomCYOp+l6OgkhoUoWiMLpbH6bw7G0KRynOHYuGuXobhWB4MAaaoaimO52naB4hnkYInhERYLBAGA" & _
"hnECw+H2BwhkmSg7kMMIqHyb49hAECAg="
.Add 4,"gBFLBCJwBAEHhEJAAChABOIDg6AADACAxRDQNABQKAAzQFAYaBqGCGAAGEZRSgmFgAQhFcZQTCsBw7DCEYxjOAwFgmEQxDIOIBQSKYcwiGQaRrkIYgEiONoaR7HchSF" & _
"IcIxPFKRBhkKYocjyG5GRoBcIyXAcRSYAB2Q4ESoKShePw5UDTcCzHR8RxEDKNRLpOQbDgOUZTWbVUaDKIsXzZCKHbZhG4YRp6CZKRpYEB1bYtKTRKqLKrpeTbOoSHol" & _
"TbiIATTYlG4THyEZQrDIaDjOSIXZaGFzwSDWGgBJ60bRwHIaAxGWoHRxfEZVfBONQHMSBc5xa64JyHAImWrcUbWfaYYZ0AC6MRkK8cXABPQANixKZsCizE4DDbTYzjRh" & _
"eC2F4nnEOJRG0BRXEWOICEocByiyCJTiQOJVGYIQ8gofpDgsG5uF+ah6D2Xp+GGP5gkCfwRHofwOnuSB2heVpZnIUZQhAIQJBQBoRgwdAdEcIYVEIQhGGAMQDBCBJYEU" & _
"GgNhCEMcHsXIkCIAAMIILQWAkAZDjYJIJiIWIeCqCRMHiNI/guYwIkYMoMmMSJWDaDZjgiTIzg6Yo4iIPoPGIdAmECChiFKXhGAQJIAmISgQCSSQ2E6E5lAkRhShSZRJ" & _
"FQOoVkCaRkAqFpQhIPhehCY54hYQoRCOYo+GaExOnmJhghqZhJjIYYbmaaJ0l+HJkiCYgtDGY5RkIegfmeSY6GOD4MnoBh1D2aBJkYbYhmcCgigaIhOloEJ3h0aATD4b" & _
"gWCkQoehaGAnniHhNgwKI6HaConmiSYCF4I5niGQoLDmaoAiKKoaE6eJ2H+HZnFoeohigKwqCwGItmqA4ejIHgrkIHo+iuEA4h6PGMmIHo1i0LIKk6SoMCSWwcm2LAki" & _
"sAAAgmQgLFYcw3myaxmkmG4GgsdIXjebYjjaVQIC0eQFAONADguBpqjaaIKlwGIuG4GwOkWOYAAqDoljqbIrmIJ41m4O5iGYK5FAwBp0ikag7mqbI+GoCwyEyPgpBCQw" & _
"Oj0KRBGKFgpnAbAjXWMQ8EaeIuG6a5SHWHZxFyBoIjEbA8FQCJJmiZAmmOORwHyCwXgkbwqn8LYoDKOZNAmJpinyOzTm8aZrBWH5QhGAxCCedBMm8L5Fi+fAEFCPgvks" & _
"Vp0h8NQBn8RpLi7NQKBALxLHyF43EaDRPDOMoxkqXp4kYaRLlMTQIDWbQeguR5iluBxCBgNBCH6dIJnaSZjF+LQZgGQSh5DOFEa4dQsi5GILsaA8ReBuHoEYZ4ZwkDFF" & _
"wJEYo2grjcHOFUAoFA7gJFqFEDYrQyilC+PwNgyRBBLH4C8FIzxiD8CeBYEgUQ9CtAiEwYgtQyDqDWPUTjBhXBrCmAcKoJQ6iGF6DEMA8BpieA4BgMQdxDg9GSOkLQgR" & _
"CjhHiDMV4Ewfh3AoGULIiBujRAuJ0c4+gEi4ASOkRAfhWgjCKKEFACCAg"
.Add 5,"gBFLBCJwBAEHhEJAAChABGgDg6AADACAxRDQNABQKAAzQFAYZBwGiGAAGEaRWgmFgAQhFcZQSKUOQTDKMIziYBYJAKCQ3DTJUBjIKcIhiGsgAzAJIUaw1DqGY7nKZoR" & _
"ioAIoSAMM7DCKUQSLGyQZqBSCQGjsAI+OyHAiABSNJwtHygIRoKqqHg2PoiSAEUZhdRlHShKSqLQiaIRSDUJZsW5EIyjBZ8EznOqbJApOKrCgOTYaWbUdSxPTEUwTFiX" & _
"JgmKRKIoiOAAY7IEgSFLsThrIKha5yDI4bxyAwXQjeYABbY0E4HQarcqzCrKGp/HYJXyAGgQHYkB5JAaQMBtGpoJrCeKQXDdVyXFwdET1BLZQA2HeUTTRVCScqnaTMZh" & _
"8DgGxniKfYbngAxFkmVJAnSdougwDhRlMGZ1GEPR9HQapDGWWhyCMe4ugQDx9naYRvm6cQfAUJ47m8cofBYAZOGCHg2mETgCBCERAGkGJHEGVByBkUwUCSIgChAMQIE2" & _
"BJRiQVQDAoEIWlWIxOgGBBcGyBQYlQXAkAcDpYh4KYKCKKI2CyC5ijONJvgySZ4lQWINkKCJmCWDpjkQaJPg+UA4joMYQiQI4eEYHAkgAYhKBgJJCh43JlAkEgwhSJA5" & _
"E4VoVE6UQCFoL5lkkBhXhUCR5gYOQKAieYUneGZlEmJhfhqZYJFIWgQCWQp+F6GxigmHJ3BoJ4JmYMw7maKZSH6HxoAiQhvhwZ1VHYFAogmBIXiAZ55jKDIQgeChGG+G" & _
"5BAoVJHiWaBYkIecznoOoeiMZYCj6IoYmcGhckeCophONoKh4aZagKLYrGkEZggeLJkCmThGDmZg5m6L4nmuOoCHaGJNnsBooAAIopCAcIZEiep2kqLwpnqCIviIBQLA" & _
"4dolEECZakuK4sksYhYAgLZLOsQJLHuBBIjibR7haWYfGwawhAOJpmBuGpajuJRJkYbxAmgORynCOZvgqApejcAgIG4OYUA0e5em+PhokQXhKAYKx8AsCo+FEcJDA6D5" & _
"MnwLwDkTWJulQQJuDEIphC2cQsHYbJEDCYJBAOLBrDIHwekUMBIiITgpmMcRhAOKYDgyRwnkyYwMjcK4cnAfAnCmSgzkoGhnkGZ45k6SIxjMTPIFCZOZEKSBxA0Fpui2" & _
"b5LFoKIqGoaY/FKUY1gmdpQjOKxbBIV4zi0DQ6nmOhmFkUophCLILEMV5YiWCZkH+W5nl2HxfiiMwQmMTZOmqLhaLsx9iUH6JAMI1hCDjECFQawhghjBG2DseoGQzhNH" & _
"wDwTAMAsgTEeCUZI1Q5jFHyLodYmWxB8GsPEVIPwxhSD6Awb4dgJD2HsAQQIoAQEB"
End With
.Background(90) = RGB(255,255,255)
With .Elements
.Add("Rectangular",0,0).Shape = 0
.Add("Round",82,0).Shape = 1
.Add("Rhomb",138,0).Shape = 2
.Add("Circle",196,0).Shape = 3
With .Add("EBN 1",0,36)
.BackColor = &H1000000
.Border = -1
End With
With .Add("EBN 2",54,36)
.BackColor = &H2000000
.Border = -1
End With
With .Add("EBN 3",108,36)
.BackColor = &H3000000
.Border = -1
End With
With .Add("EBN 4 ",160,36)
.BackColor = &H4000000
.Border = -1
End With
With .Add("EBN 5 ",220,36)
.BackColor = &H5000000
.MinHeight = 64
.MinWidth = 64
.Border = -1
End With
End With
.ScrollPos(False) = -160
.EndUpdate
End With
|
21
|
Is it possible to add an inner control on the surface

' OleEvent event - Occurs once an inside control fires an event.
Private Sub SwimLane1_OleEvent(ByVal Element As Object, ByVal Ev As Object)
With SwimLane1
Debug.Print( Ev )
End With
End Sub
With SwimLane1
With .Elements
With .Add("activex hosting")
.Type = 2
.Control = "Forms.CommandButton.1"
.Caption = "Command Button"
.Height = 64
.Width = 128
.ElementFormat = "14;""caption""/""client"""
.CaptionAlign = 1
End With
End With
End With
|
20
|
How can I create a copy of the element
With SwimLane1
.Background(90) = RGB(255,255,255)
.Elements.Add("Element 1",0,0).Copy().Caption = "Aka"
End With
|
19
|
How can I define an opaque background for elements

With SwimLane1
.Background(90) = RGB(255,255,255)
.Elements.Add "Element 1",0,0
.Elements.Add "Element 2",16,16
End With
|
18
|
How can I show a different context-menu for all elements
' ActionContextMenu event - Occurs when the user selects an item from the object's context menu.
Private Sub SwimLane1_ActionContextMenu(ByVal Action As Long, ByVal ObjectType As Long, ByVal ObjectID As Variant, ByVal CommandID As Long, ByVal CommandChecked As Boolean, ByVal CommandCaption As Variant, ByVal CommandValue As Variant, Cancel As Boolean)
With SwimLane1
Debug.Print( Action )
Debug.Print( ObjectID )
Debug.Print( CommandID )
End With
End Sub
With SwimLane1
.ContextMenu(4) = "Item 1[id=1000],Item 2[id=2000]"
.Background(90) = RGB(255,255,255)
.Elements.Add "Element 1",0,0
.Elements.Add "Element 2",16,16
End With
|
17
|
How can I show a different context-menu for element
With SwimLane1
Debug.Print( .Elements.Add("Element",0,0).InvokeContextMenu("Item 1[id=1000],Item 2[id=2000]") )
End With
|
16
|
How can I change the design-modes being shown on the control's toolbar

With SwimLane1
.DesignModes = "Read-Only#0,Allow Any#3,Only-Element#1,Only-Pool#2"
End With
|
15
|
How can I change the default header's background color

With SwimLane1
.BeginUpdate
With .Pools.Add(-250,-150,500,250)
.Lane(0).Children.Count = 4
.Lane(1).Children.Count = 4
End With
.Background(120) = RGB(0,255,0)
.Background(124) = RGB(0,192,0)
.EndUpdate
End With
|
14
|
How can I remove the Design item from the control's toolbar, to be locked ( no-design )

With SwimLane1
.ToolBarFormat = "-1,100,101"
.DesignMode = 0
End With
|
13
|
How can I remove/disable the Color and Display-Grid from the surface's context menu

With SwimLane1
.ContextMenu(24) = "Delete[id=-32004](All[id=-32000][ttp=Deletes all the objects from the surface],[sep],Elements[id=-32001][ttp=Deletes all elemen" & _
"ts from the surface],Links[id=-32002][ttp=Deletes all links from the surface],Pools[id=-32003][ttp=Deletes all pools from the su" & _
"rface])"
End With
|
12
|
How can I change the element's context-menu when the user right-clicks the element

' ActionContextMenu event - Occurs when the user selects an item from the object's context menu.
Private Sub SwimLane1_ActionContextMenu(ByVal Action As Long, ByVal ObjectType As Long, ByVal ObjectID As Variant, ByVal CommandID As Long, ByVal CommandChecked As Boolean, ByVal CommandCaption As Variant, ByVal CommandValue As Variant, Cancel As Boolean)
' ContextMenuObjectFromID(ObjectType,ObjectID).BackColor = RGB(255,255,0)
With SwimLane1
Debug.Print( Action )
Debug.Print( CommandCaption )
End With
End Sub
With SwimLane1
.BeginUpdate
.Elements.Add "element",0,0
.ContextMenu(4) = "Simple,Value[edit=123],[sep],Popup(Check 1[chk],Check 2[chk=1])"
.EndUpdate
End With
|
11
|
How do I prevent showing the context-menu when user right-clicks the surface
With SwimLane1
.ContextMenu(24) = ""
End With
|
10
|
How do I create parent-child (tree) lanes

With SwimLane1
.BeginUpdate
With .Pools.Add(-250,-150,500,250)
.HeaderSize(1) = 32
.HeaderVisible(3) = False
With .Lane(1).Children
.Count = 2
With .Item(0).Children
.Count = 2
.Item(0).Header.Caption = "Phase <b>1.1"
.Item(1).Header.Caption = "Phase <b>1.2"
End With
End With
End With
.EndUpdate
End With
|
9
|
How do I create a pool with horizontal and lanes

With SwimLane1
.BeginUpdate
With .Pools.Add(-250,-150,500,250)
.Lane(0).Children.Count = 4
.Lane(1).Children.Count = 4
End With
.EndUpdate
End With
|
8
|
How do I add programatically a pool with horizontal lanes

With SwimLane1
.BeginUpdate
With .Pools.Add(-250,-150,500,250)
.Lane(0).Children.Count = 4
End With
.EndUpdate
End With
|
7
|
How do I add programatically a pool with vertical lanes

With SwimLane1
.BeginUpdate
With .Pools.Add(-250,-150,500,250)
.Lane(1).Children.Count = 4
End With
.EndUpdate
End With
|
6
|
How can I change the toolbar's visual appearance

With SwimLane1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(148) = &H1000000
.Background(149) = RGB(255,255,255)
.Background(150) = RGB(40,40,40)
.Background(153) = &H1606060
.Background(154) = RGB(240,240,240)
.Background(155) = &H1a0a0a0
.Background(156) = RGB(255,255,255)
End With
|
5
|
How can I change the toolbar's background color

With SwimLane1
.Background(149) = RGB(255,255,255)
End With
|
4
|
How can I fit or ensure that all elements are in the control's client area
With SwimLane1
With .Elements
.Add("Element A",-500,-500).BackColor = RGB(0,255,0)
.Add("Element B",500,500).BackColor = RGB(255,0,0)
.Add "Element C",48,24
End With
.FitToClient
End With
|
3
|
Context Menu - Microsoft Windows 8.1 - Ribbon Like

With SwimLane1
.BeginUpdate
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn"
.Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn"
.Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn"
.Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn"
.Add 17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn"
.Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn"
.Add 30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn"
.Add 31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn"
.Add 32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn"
.Add 33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn"
.Add 34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn"
.Add 35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn"
End With
.Background(99) = &H1000000
.Background(64) = &H1fefefe
.Background(102) = &He000000
.Background(148) = &H1000000
.Background(149) = RGB(255,255,255)
.Background(155) = &Hc000000
.Background(153) = &He000000
.Background(110) = &Hc000000
.Background(112) = &H23000000
.Background(2) = &H22000000 ' &H2
.Background(3) = &H23000000 ' &H3
.Background(70) = &H20000000
.Background(71) = &H21000000
.Background(73) = &H1e000000
.Background(74) = &H1f000000
.EndUpdate
End With
|
2
|
Context Menu - Microsoft Paint - Ribbon Like

With SwimLane1
.BeginUpdate
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn"
.Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn"
.Add 3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn"
.Add 4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn"
.Add 5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn"
.Add 6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn"
.Add 7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn"
.Add 8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn"
.Add 9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn"
.Add 10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn"
.Add 11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn"
.Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn"
.Add 13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn"
.Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn"
.Add 15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn"
.Add 16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn"
.Add 17,"CP:16 0 0 0 1"
.Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn"
.Add 19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn"
.Add 20,"CP:19 0 0 0 1"
End With
.Background(99) = &H1000000
.Background(101) = RGB(21,66,139)
.Background(102) = &He000000
.Background(64) = &H1fefefe
.Background(148) = &H1000000
.Background(149) = RGB(255,255,255)
.Background(155) = &Hd000000
.Background(153) = &H1000000
.Background(2) = &Hd000000 ' &H2
.Background(105) = &H5000000
.Background(106) = &H6000000
.Background(107) = &H7000000
.Background(108) = &H8000000
.Background(116) = &H9000000
.Background(117) = &Ha000000
.Background(118) = &Hb000000
.Background(110) = &Hc000000
.Background(112) = &Hf000000
.EndUpdate
End With
|
1
|
Context Menu - Microsoft Office - Ribbon Like

With SwimLane1
.BeginUpdate
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn"
.Add 2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn"
.Add 3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn"
.Add 4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn"
.Add 5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn"
.Add 6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn"
.Add 7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn"
.Add 8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn"
.Add 9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn"
.Add 10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn"
.Add 11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn"
.Add 12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn"
.Add 13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn"
.Add 14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn"
.Add 15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn"
.Add 16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn"
.Add 17,"CP:16 0 0 0 1"
.Add 18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn"
.Add 19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn"
.Add 20,"CP:19 0 0 0 1"
End With
.Background(99) = &H1000000
.Background(101) = RGB(21,66,139)
.Background(64) = &H1fefefe
.Background(148) = &H1000000
.Background(149) = RGB(255,255,255)
.Background(155) = &Hd000000
.Background(153) = &H1000000
.Background(2) = &Hd000000 ' &H2
.Background(3) = &H1000000 ' &H3
.Background(105) = &H5000000
.Background(106) = &H6000000
.Background(107) = &H7000000
.Background(108) = &H8000000
.Background(116) = &H9000000
.Background(117) = &Ha000000
.Background(118) = &Hb000000
.Background(110) = &Hc000000
.Background(102) = &He000000
.Background(112) = &Hf000000
.EndUpdate
End With
|